home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Interactive 3 / CDROMAG3.iso / mac / Gallery (Macintosh) / Total Distortion / Shared.Dxr / 02055.ls < prev    next >
Encoding:
Text File  |  1994-08-25  |  2.1 KB  |  125 lines
  1. on IJ x
  2.   go(x)
  3.   resetC()
  4. end
  5.  
  6. on GoMenu
  7.   global MenuMan
  8.   if MenuMan starts "go" then
  9.     do(MenuMan)
  10.   else
  11.     go("menu", "aa02")
  12.   end if
  13. end
  14.  
  15. on BTog
  16.   global TOG
  17.   set x to the locH of sprite 21
  18.   puppetSprite(21, 1)
  19.   puppetSprite(22, 1)
  20.   puppetSprite(23, 1)
  21.   puppetSprite(24, 1)
  22.   if TOG = 0 then
  23.     set TOG to 1
  24.     set the locV of sprite 21 to 342
  25.     set the locV of sprite 22 to 342
  26.     set the locV of sprite 23 to 342
  27.     set the locV of sprite 24 to 342
  28.   else
  29.     set TOG to 0
  30.     set the locV of sprite 21 to 422
  31.     set the locV of sprite 22 to 422
  32.     set the locV of sprite 23 to 422
  33.     set the locV of sprite 24 to 422
  34.   end if
  35. end
  36.  
  37. on FeedJump b, bm, f, fm
  38.   global JBack, JFore, MBack, MFore
  39.   set JBack to b
  40.   set MBack to bm
  41.   set JFore to f
  42.   set MFore to fm
  43. end
  44.  
  45. on GoBack
  46.   global JBack, JFore, MBack, MFore, TOG
  47.   set TOG to 0
  48.   if JBack = "MainMenu" then
  49.     GoMenu()
  50.     exit
  51.   else
  52.     if stringp(MBack) then
  53.       go(JBack, MBack)
  54.     else
  55.       if MBack = 1 then
  56.         go(1, JBack)
  57.       else
  58.         if MBack = 0 then
  59.           go(JBack)
  60.         else
  61.           go(JBack, MBack)
  62.         end if
  63.       end if
  64.     end if
  65.   end if
  66. end
  67.  
  68. on GoFore
  69.   global JBack, JFore, MBack, MFore, TOG
  70.   set TOG to 0
  71.   if JFore = "MainMenu" then
  72.     go("Menu", "aa02")
  73.     exit
  74.   else
  75.     if JFore = "EndGAME" then
  76.       go("End", "aa02")
  77.       exit
  78.     else
  79.       if stringp(MFore) then
  80.         go(JFore, MFore)
  81.       else
  82.         if MFore = 1 then
  83.           go(1, JFore)
  84.         else
  85.           if MFore = 0 then
  86.             go(JFore)
  87.           else
  88.             go(JFore, MFore)
  89.           end if
  90.         end if
  91.       end if
  92.     end if
  93.   end if
  94. end
  95.  
  96. on AJ x
  97.   global MJumpCounter
  98.   set MJumpCounter to MJumpCounter + 1
  99.   if x = 1 then
  100.     if MJumpCounter > 12 then
  101.       set MJumpCounter to 0
  102.       go(marker(1))
  103.       exit
  104.     end if
  105.   end if
  106.   if integerp(x) = 0 then
  107.     if MJumpCounter > 10 then
  108.       set MJumpCounter to 0
  109.       go(x)
  110.       exit
  111.     end if
  112.   end if
  113.   if x = 6 then
  114.     go(marker(1))
  115.     resetC()
  116.     exit
  117.   end if
  118.   go(marker(0))
  119. end
  120.  
  121. on resetC
  122.   global MJumpCounter
  123.   set Countr to 0
  124. end
  125.